| CheckEquals method |
Applies to
TTestCase
Declaration
Procedure CheckEquals(expected, actual :double; delta :double = 0; msg :string = '');
Implementation
procedure TTestCase.CheckEquals( expected,
actual :double;
delta :double = 0;
msg :string = '');
begin
if (abs(expected-actual) > delta) then
FailNotEquals(FloatToStr(expected), FloatToStr(actual), msg, CallerAddr);
End; |
|
|